home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MUR-DOOR.ZIP / MUR-DOOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-08-18  |  9KB  |  600 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.     String   STRING037
  57.     String   STRING038
  58.     String   STRING039
  59.     String   STRING040
  60.     String   STRING041
  61.     String   STRING042
  62.     String   STRING043
  63.     String   STRING044
  64.     String   STRING045
  65.     String   STRING046
  66.     String   STRING047
  67.     String   STRING048
  68.     String   STRING049
  69.     String   STRING050
  70.     String   STRING051
  71.     String   STRING052
  72.     String   STRING053
  73.     String   STRING054
  74.     String   STRING055
  75.     String   STRING056
  76.     String   STRING057
  77.     String   STRING058
  78.     String   STRING059
  79.     String   STRING060
  80.     String   STRING061
  81.     String   STRING062
  82.     String   STRING063
  83.     String   STRING064
  84.     String   STRING065
  85.     String   STRING066
  86.     String   STRING067
  87.     String   STRING068
  88.  
  89. ;------------------------------------------------------------------------------
  90.  
  91.     Log "MUR^DOOR^Version^1.o^Entered^Normally!", 0
  92.     If (Exist(PPEPath() + "MUR-DOOR.CFG")) Goto LABEL001
  93.     PrintLn "@CLS@"
  94.     PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cc@X04onfig @X0Cf@X04ile!"
  95.     PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
  96.     PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
  97.     PrintLn ""
  98.     PrintLn ""
  99.     Wait
  100.     End
  101.     :LABEL001
  102.     FOpen 1, PPEPath() + "MUR-DOOR.CFG", 0, 2
  103.     FGet 1, STRING001
  104.     FGet 1, STRING002
  105.     FGet 1, STRING003
  106.     FGet 1, STRING004
  107.     FGet 1, STRING005
  108.     FGet 1, STRING006
  109.     FGet 1, STRING007
  110.     FGet 1, STRING008
  111.     FGet 1, STRING009
  112.     FGet 1, STRING010
  113.     FGet 1, STRING011
  114.     FGet 1, STRING012
  115.     FGet 1, STRING013
  116.     FGet 1, STRING014
  117.     FGet 1, STRING015
  118.     FGet 1, STRING016
  119.     FGet 1, STRING017
  120.     FGet 1, STRING018
  121.     FGet 1, STRING019
  122.     FGet 1, STRING020
  123.     FGet 1, STRING021
  124.     FGet 1, STRING022
  125.     FGet 1, STRING023
  126.     FGet 1, STRING024
  127.     FGet 1, STRING025
  128.     FGet 1, STRING026
  129.     FGet 1, STRING027
  130.     FGet 1, STRING028
  131.     FGet 1, STRING029
  132.     FGet 1, STRING030
  133.     FGet 1, STRING031
  134.     FGet 1, STRING032
  135.     FClose 1
  136.     STRING033 = "@X09 " + STRING001 + " " + "@X07 - " + STRING002
  137.     STRING034 = "@X31 " + STRING001 + " " + "@X07 - " + STRING002
  138.     STRING035 = "@X09 " + STRING003 + " " + "@X07 - " + STRING004
  139.     STRING036 = "@X31 " + STRING003 + " " + "@X07 - " + STRING004
  140.     STRING037 = "@X09 " + STRING005 + " " + "@X07 - " + STRING006
  141.     STRING038 = "@X31 " + STRING005 + " " + "@X07 - " + STRING006
  142.     STRING039 = "@X09 " + STRING007 + " " + "@X07 - " + STRING008
  143.     STRING040 = "@X31 " + STRING007 + " " + "@X07 - " + STRING008
  144.     STRING041 = "@X09 " + STRING009 + " " + "@X07 - " + STRING010
  145.     STRING042 = "@X31 " + STRING009 + " " + "@X07 - " + STRING010
  146.     STRING043 = "@X09 " + STRING011 + " " + "@X07 - " + STRING012
  147.     STRING044 = "@X31 " + STRING011 + " " + "@X07 - " + STRING012
  148.     STRING045 = "@X09 " + STRING013 + " " + "@X07 - " + STRING014
  149.     STRING046 = "@X31 " + STRING013 + " " + "@X07 - " + STRING014
  150.     STRING047 = "@X09 " + STRING015 + " " + "@X07 - " + STRING016
  151.     STRING048 = "@X31 " + STRING015 + " " + "@X07 - " + STRING016
  152.     STRING049 = "@X09 " + STRING017 + " " + "@X07 - " + STRING018
  153.     STRING050 = "@X31 " + STRING017 + " " + "@X07 - " + STRING018
  154.     STRING051 = "@X09 " + STRING019 + " " + "@X07 - " + STRING020
  155.     STRING052 = "@X31 " + STRING019 + " " + "@X07 - " + STRING020
  156.     STRING053 = "@X09 " + STRING021 + " " + "@X07 - " + STRING022
  157.     STRING054 = "@X31 " + STRING021 + " " + "@X07 - " + STRING022
  158.     STRING055 = "@X09 " + STRING023 + " " + "@X07 - " + STRING024
  159.     STRING056 = "@X31 " + STRING023 + " " + "@X07 - " + STRING024
  160.     STRING057 = "@X09 " + STRING025 + " " + "@X07 - " + STRING026
  161.     STRING058 = "@X31 " + STRING025 + " " + "@X07 - " + STRING026
  162.     STRING059 = "@X09 " + STRING027 + " " + "@X07 - " + STRING028
  163.     STRING060 = "@X31 " + STRING027 + " " + "@X07 - " + STRING028
  164.     STRING061 = "@X09 " + STRING029 + " " + "@X07 - " + STRING030
  165.     STRING062 = "@X31 " + STRING029 + " " + "@X07 - " + STRING030
  166.     STRING063 = "@X09 " + STRING031 + " " + "@X07 - " + STRING032
  167.     STRING064 = "@X31 " + STRING031 + " " + "@X07 - " + STRING032
  168.     STRING065 = "@X08| @X31 QUIT @X07 - Well obviously this is the exit..!"
  169.     STRING066 = "@X08|  @X09QUIT  @X07- Well obviously this is the exit..!"
  170.     If (Exist(PPEPath() + "MUR-DOOR.PCB")) Goto LABEL002
  171.     PrintLn "@CLS@"
  172.     PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cg@X04rafixs @X0Cf@X04ile!"
  173.     PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
  174.     PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
  175.     PrintLn ""
  176.     PrintLn ""
  177.     Wait
  178.     End
  179.     :LABEL002
  180.     PrintLn "@POFF@"
  181.     Cls
  182.     DispFile PPEPath() + "MUR-DOOR.PCB", 0
  183.     AnsiPos 3, 5
  184.     Print STRING033
  185.     AnsiPos 3, 6
  186.     Print STRING035
  187.     AnsiPos 3, 7
  188.     Print STRING037
  189.     AnsiPos 3, 8
  190.     Print STRING039
  191.     AnsiPos 3, 9
  192.     Print STRING041
  193.     AnsiPos 3, 10
  194.     Print STRING043
  195.     AnsiPos 3, 11
  196.     Print STRING045
  197.     AnsiPos 3, 12
  198.     Print STRING047
  199.     AnsiPos 3, 13
  200.     Print STRING049
  201.     AnsiPos 3, 14
  202.     Print STRING051
  203.     AnsiPos 3, 15
  204.     Print STRING053
  205.     AnsiPos 3, 16
  206.     Print STRING055
  207.     AnsiPos 3, 17
  208.     Print STRING057
  209.     AnsiPos 3, 18
  210.     Print STRING059
  211.     AnsiPos 3, 19
  212.     Print STRING061
  213.     AnsiPos 3, 20
  214.     Print STRING063
  215.     AnsiPos 1, 21
  216.     Print STRING066
  217.     :LABEL003
  218.     AnsiPos 1, 21
  219.     Print STRING066
  220.     AnsiPos 3, 5
  221.     Print STRING034
  222.     AnsiPos 3, 6
  223.     Print STRING035
  224.     :LABEL004
  225.     STRING067 = Inkey()
  226.     If (STRING067 == "UP") Goto LABEL035
  227.     If (STRING067 == "DOWN") Goto LABEL005
  228.     If (STRING067 == Chr(13)) Goto LABEL037
  229.     Goto LABEL004
  230.     :LABEL005
  231.     AnsiPos 3, 5
  232.     Print STRING033
  233.     AnsiPos 3, 6
  234.     Print STRING036
  235.     AnsiPos 3, 7
  236.     Print STRING037
  237.     :LABEL006
  238.     STRING067 = Inkey()
  239.     If (STRING067 == "UP") Goto LABEL003
  240.     If (STRING067 == "DOWN") Goto LABEL007
  241.     If (STRING067 == Chr(13)) Goto LABEL038
  242.     Goto LABEL006
  243.     :LABEL007
  244.     AnsiPos 3, 6
  245.     Print STRING035
  246.     AnsiPos 3, 7
  247.     Print STRING038
  248.     AnsiPos 3, 8
  249.     Print STRING039
  250.     :LABEL008
  251.     STRING067 = Inkey()
  252.     If (STRING067 == "UP") Goto LABEL005
  253.     If (STRING067 == "DOWN") Goto LABEL009
  254.     If (STRING067 == Chr(13)) Goto LABEL039
  255.     Goto LABEL008
  256.     :LABEL009
  257.     AnsiPos 3, 7
  258.     Print STRING037
  259.     AnsiPos 3, 8
  260.     Print STRING040
  261.     AnsiPos 3, 9
  262.     Print STRING041
  263.     :LABEL010
  264.     STRING067 = Inkey()
  265.     If (STRING067 == "UP") Goto LABEL007
  266.     If (STRING067 == "DOWN") Goto LABEL011
  267.     If (STRING067 == Chr(13)) Goto LABEL040
  268.     Goto LABEL010
  269.     :LABEL011
  270.     AnsiPos 3, 8
  271.     Print STRING039
  272.     AnsiPos 3, 9
  273.     Print STRING042
  274.     AnsiPos 3, 10
  275.     Print STRING043
  276.     :LABEL012
  277.     STRING067 = Inkey()
  278.     If (STRING067 == "UP") Goto LABEL009
  279.     If (STRING067 == "DOWN") Goto LABEL013
  280.     If (STRING067 == Chr(13)) Goto LABEL041
  281.     Goto LABEL012
  282.     :LABEL013
  283.     AnsiPos 3, 9
  284.     Print STRING041
  285.     AnsiPos 3, 10
  286.     Print STRING044
  287.     AnsiPos 3, 11
  288.     Print STRING045
  289.     :LABEL014
  290.     STRING067 = Inkey()
  291.     If (STRING067 == "UP") Goto LABEL011
  292.     If (STRING067 == "DOWN") Goto LABEL015
  293.     If (STRING067 == Chr(13)) Goto LABEL042
  294.     Goto LABEL014
  295.     :LABEL015
  296.     AnsiPos 3, 10
  297.     Print STRING043
  298.     AnsiPos 3, 11
  299.     Print STRING046
  300.     AnsiPos 3, 12
  301.     Print STRING047
  302.     :LABEL016
  303.     STRING067 = Inkey()
  304.     If (STRING067 == "UP") Goto LABEL013
  305.     If (STRING067 == "DOWN") Goto LABEL017
  306.     If (STRING067 == Chr(13)) Goto LABEL043
  307.     Goto LABEL016
  308.     :LABEL017
  309.     AnsiPos 3, 11
  310.     Print STRING045
  311.     AnsiPos 3, 12
  312.     Print STRING048
  313.     AnsiPos 3, 13
  314.     Print STRING049
  315.     :LABEL018
  316.     STRING067 = Inkey()
  317.     If (STRING067 == "UP") Goto LABEL015
  318.     If (STRING067 == "DOWN") Goto LABEL019
  319.     If (STRING067 == Chr(13)) Goto LABEL044
  320.     Goto LABEL018
  321.     :LABEL019
  322.     AnsiPos 3, 12
  323.     Print STRING047
  324.     AnsiPos 3, 13
  325.     Print STRING050
  326.     AnsiPos 3, 14
  327.     Print STRING051
  328.     :LABEL020
  329.     STRING067 = Inkey()
  330.     If (STRING067 == "UP") Goto LABEL017
  331.     If (STRING067 == "DOWN") Goto LABEL021
  332.     If (STRING067 == Chr(13)) Goto LABEL045
  333.     Goto LABEL020
  334.     :LABEL021
  335.     AnsiPos 3, 13
  336.     Print STRING049
  337.     AnsiPos 3, 14
  338.     Print STRING052
  339.     AnsiPos 3, 15
  340.     Print STRING053
  341.     :LABEL022
  342.     STRING067 = Inkey()
  343.     If (STRING067 == "UP") Goto LABEL019
  344.     If (STRING067 == "DOWN") Goto LABEL023
  345.     If (STRING067 == Chr(13)) Goto LABEL046
  346.     Goto LABEL022
  347.     :LABEL023
  348.     AnsiPos 3, 14
  349.     Print STRING051
  350.     AnsiPos 3, 15
  351.     Print STRING054
  352.     AnsiPos 3, 16
  353.     Print STRING055
  354.     :LABEL024
  355.     STRING067 = Inkey()
  356.     If (STRING067 == "UP") Goto LABEL021
  357.     If (STRING067 == "DOWN") Goto LABEL025
  358.     If (STRING067 == Chr(13)) Goto LABEL047
  359.     Goto LABEL024
  360.     :LABEL025
  361.     AnsiPos 3, 15
  362.     Print STRING053
  363.     AnsiPos 3, 16
  364.     Print STRING056
  365.     AnsiPos 3, 17
  366.     Print STRING057
  367.     :LABEL026
  368.     STRING067 = Inkey()
  369.     If (STRING067 == "UP") Goto LABEL023
  370.     If (STRING067 == "DOWN") Goto LABEL027
  371.     If (STRING067 == Chr(13)) Goto LABEL048
  372.     Goto LABEL026
  373.     :LABEL027
  374.     AnsiPos 3, 16
  375.     Print STRING055
  376.     AnsiPos 3, 17
  377.     Print STRING058
  378.     AnsiPos 3, 18
  379.     Print STRING059
  380.     :LABEL028
  381.     STRING067 = Inkey()
  382.     If (STRING067 == "UP") Goto LABEL025
  383.     If (STRING067 == "DOWN") Goto LABEL029
  384.     If (STRING067 == Chr(13)) Goto LABEL049
  385.     Goto LABEL028
  386.     :LABEL029
  387.     AnsiPos 3, 17
  388.     Print STRING057
  389.     AnsiPos 3, 18
  390.     Print STRING060
  391.     AnsiPos 3, 19
  392.     Print STRING061
  393.     :LABEL030
  394.     STRING067 = Inkey()
  395.     If (STRING067 == "UP") Goto LABEL027
  396.     If (STRING067 == "DOWN") Goto LABEL031
  397.     If (STRING067 == Chr(13)) Goto LABEL050
  398.     Goto LABEL030
  399.     :LABEL031
  400.     AnsiPos 3, 18
  401.     Print STRING059
  402.     AnsiPos 3, 19
  403.     Print STRING062
  404.     AnsiPos 3, 20
  405.     Print STRING063
  406.     :LABEL032
  407.     STRING067 = Inkey()
  408.     If (STRING067 == "UP") Goto LABEL029
  409.     If (STRING067 == "DOWN") Goto LABEL033
  410.     If (STRING067 == Chr(13)) Goto LABEL051
  411.     Goto LABEL032
  412.     :LABEL033
  413.     AnsiPos 3, 19
  414.     Print STRING061
  415.     AnsiPos 3, 20
  416.     Print STRING064
  417.     AnsiPos 1, 21
  418.     Print STRING066
  419.     :LABEL034
  420.     STRING067 = Inkey()
  421.     If (STRING067 == "UP") Goto LABEL031
  422.     If (STRING067 == "DOWN") Goto LABEL035
  423.     If (STRING067 == Chr(13)) Goto LABEL052
  424.     Goto LABEL034
  425.     :LABEL035
  426.     AnsiPos 3, 5
  427.     Print STRING033
  428.     AnsiPos 3, 20
  429.     Print STRING063
  430.     AnsiPos 1, 21
  431.     Print STRING065
  432.     :LABEL036
  433.     STRING067 = Inkey()
  434.     If (STRING067 == "UP") Goto LABEL033
  435.     If (STRING067 == "DOWN") Goto LABEL003
  436.     If (STRING067 == Chr(13)) Goto LABEL053
  437.     Goto LABEL036
  438.     :LABEL037
  439.     STRING068 = STRING001
  440.     Goto LABEL054
  441.     :LABEL038
  442.     STRING068 = STRING003
  443.     Goto LABEL054
  444.     :LABEL039
  445.     STRING068 = STRING005
  446.     Goto LABEL054
  447.     :LABEL040
  448.     STRING068 = STRING007
  449.     Goto LABEL054
  450.     :LABEL041
  451.     STRING068 = STRING009
  452.     Goto LABEL054
  453.     :LABEL042
  454.     STRING068 = STRING011
  455.     Goto LABEL054
  456.     :LABEL043
  457.     STRING068 = STRING013
  458.     Goto LABEL054
  459.     :LABEL044
  460.     STRING068 = STRING015
  461.     Goto LABEL054
  462.     :LABEL045
  463.     STRING068 = STRING017
  464.     Goto LABEL054
  465.     :LABEL046
  466.     STRING068 = STRING019
  467.     Goto LABEL054
  468.     :LABEL047
  469.     STRING068 = STRING021
  470.     Goto LABEL054
  471.     :LABEL048
  472.     STRING068 = STRING023
  473.     Goto LABEL054
  474.     :LABEL049
  475.     STRING068 = STRING025
  476.     Goto LABEL054
  477.     :LABEL050
  478.     STRING068 = STRING027
  479.     Goto LABEL054
  480.     :LABEL051
  481.     STRING068 = STRING029
  482.     Goto LABEL054
  483.     :LABEL052
  484.     STRING068 = STRING031
  485.     Goto LABEL054
  486.     :LABEL053
  487.     STRING068 = "quit"
  488.     :LABEL054
  489.     PrintLn "@CLS@@POFF@"
  490.     INTEGER001 = 0
  491.     :LABEL055
  492.     INTEGER001 = INTEGER001 + 1
  493.     AnsiPos 34, 12
  494.     PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
  495.     Delay 1
  496.     AnsiPos 34, 12
  497.     PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
  498.     Delay 1
  499.     AnsiPos 34, 12
  500.     PrintLn "@X0F  [@X03nocide^@X0BM@X0F]  "
  501.     Delay 1
  502.     AnsiPos 34, 12
  503.     PrintLn "@X0F   [@X03ocide^@X0B@X0F]   "
  504.     Delay 1
  505.     AnsiPos 34, 12
  506.     PrintLn "@X0F    [@X03cide@X0F]    "
  507.     Delay 1
  508.     AnsiPos 34, 12
  509.     PrintLn "@X0F     [@X03id@X0F]     "
  510.     Delay 1
  511.     AnsiPos 34, 12
  512.     PrintLn "@X0F      [@X0F]      "
  513.     Delay 2
  514.     AnsiPos 34, 12
  515.     PrintLn "@X0F     [@X03id@X0F]     "
  516.     Delay 1
  517.     AnsiPos 34, 12
  518.     PrintLn "@X0F    [@X03cide@X0F]    "
  519.     Delay 1
  520.     AnsiPos 34, 12
  521.     PrintLn "@X0F   [@X03ocide^@X0B@X0F]   "
  522.     Delay 1
  523.     AnsiPos 34, 12
  524.     PrintLn "@X0F  [@X03nocide^@X0BM@X0F]  "
  525.     Delay 1
  526.     AnsiPos 34, 12
  527.     PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
  528.     Delay 1
  529.     AnsiPos 34, 12
  530.     PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
  531.     Delay 1
  532.     If (INTEGER001 == 2) Goto LABEL056
  533.     Goto LABEL055
  534.     :LABEL056
  535.     If (STRING068 == "quit") Goto LABEL057
  536.     If (STRING068 == "NONE") Goto LABEL057
  537.     If (STRING068 == "none") Goto LABEL057
  538.     KbdStuff STRING068 + Chr(13)
  539.     :LABEL057
  540.     Log "MUR-DOOR Exited Normally..", 0
  541.  
  542. ;------------------------------------------------------------------------------
  543. ;
  544. ; Usage report (before postprocessing)
  545. ;
  546. ; ■ Statements used :
  547. ;
  548. ;    2       End
  549. ;    1       Cls
  550. ;    2       Wait
  551. ;    92      Goto 
  552. ;    70      Let 
  553. ;    68      Print 
  554. ;    27      PrintLn 
  555. ;    57      If 
  556. ;    1       DispFile 
  557. ;    1       FOpen 
  558. ;    1       FClose 
  559. ;    32      FGet 
  560. ;    2       Log 
  561. ;    13      Delay 
  562. ;    1       KbdStuff 
  563. ;    81      AnsiPos 
  564. ;
  565. ;
  566. ; ■ Functions used :
  567. ;
  568. ;    136     +
  569. ;    55      ==
  570. ;    18      Chr()
  571. ;    17      Inkey()
  572. ;    2       PCBDat()
  573. ;    4       PPEPath()
  574. ;    2       ReadLine()
  575. ;    2       Exist()
  576. ;
  577. ;------------------------------------------------------------------------------
  578. ;
  579. ; Analysis flags : d
  580. ;
  581. ; d - Access PCBOARD.DAT ■ 2
  582. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  583. ;     for many PPE so they can find various informations on the system
  584. ;     (system paths, max number of lines in messages, ...) but it may also
  585. ;     be a way to gather vital informations.
  586. ;     ■ Search for : PCBDAT()
  587. ;
  588. ;------------------------------------------------------------------------------
  589. ;
  590. ; Postprocessing report
  591. ;
  592. ;    0       For/Next
  593. ;    0       While/EndWhile
  594. ;    0       If/Then or If/Then/Else
  595. ;    0       Select Case
  596. ;
  597. ;------------------------------------------------------------------------------
  598. ;                 AEGiS Corp - Break the routines, code against the machines!
  599. ;------------------------------------------------------------------------------
  600.